home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d15
/
maximo_1.arc
/
TXT.ARC
/
ENGR.TXT
< prev
next >
Wrap
Text File
|
1991-08-20
|
5KB
|
219 lines
;------------------------------------------------------
;
; ED -- ed the engineer
; (c) copyright 1990 Chris Butler
; last mod 11/28 2 pm
;VIDEO M
set allsolns off
goto top
all:
set allsolns on ; will cycle thru all modules
top:
;mouse on
global boxllx 0 ; mod 8 = 0
global boxlly 0
global boxw 488
global boxh 115
global boxtitle "Max with Ed the engineer"
set h 17 ; key height
set keycolor 14 ; keytop color in convbox = 14 (yellow)
set txtboxclr 14;
cload max.clp 30 1 0 ; max's face
tran on 15
cload cover.clp 32 0 1
merge toursubs.txt ; subrs common to all 6 solutions
ed:
set entrypoint "entry_7" ; for MENUing back
pload palette1.pcx 1
palette 1
pnewbuf 1
psetbuf 1
color 0
clearscr
psetbuf
pfade 10 1 300
pfree 1
cfade 20 80,300 30
color 15
rect 240,40 540,439
window 270,40 520,420
color 0
fload ibm16
text 270,400 "Hi! I'm Max, the MAXIMO system manager at the Quench-Rite"
text " Bottling Company."
text 270,320 "We've had MAXIMO Series 3 for about a year now. And MAXIMO has"
text " dramatically improved all aspects of our maintenance effort!"
text 270,200 "The folks at PSDI asked me to tell you about a recent "
text "maintenance issue we resolved with MAXIMO's help. "
text "Please join me in a re-creation of a series of morning meetings."
text 270,60 "Press <Enter> to continue."
waitkey
window
set boxtitle "Max with Ed the engineer"
cload bill.clp 31 1 0
pload proteus.pcx 1
pfade 4 1
pfree 1
note 100 10 10
waitkey
call steps.txt engr
newbgrnd "bill1a.pcx" 80 0 1 0 200 5
;mouse on
label001:
set str1 "Hi, Ed. How are you today?"
set str2 ""
say 1 @str1 @str2
label1a:
waitkey 50
getcmd
if @0<>"backup" label1b
noise 500 200 50
waitkey 100
goto label1a
label1b:
set str1 "Just fine, Max."
set str2 " "
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label001
label002:
set str1 "Ed, the plant manager called me this morning and asked if I"
set str2 " could look into the Eclipse cartoner bearing failures."
say 1 @str1 @str2
getcmd
if @0=="backup" label1b
label003:
set str1 "OK Max. Those block bearings have been a real pain recently."
set str2 " Maybe we need to schedule a retrofit for all 8 cartoners."
say 0 @str1 @str2
getcmd
if @0=="backup" label002
label004:
set str1 "How many bearings are we talking about, Ed?"
set str2 " "
say 1 @str1 @str2
getcmd
if @0=="backup" label003
label005:
set str1 "Let's look it up in MAXIMO!"
set str2 ""
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label004
label006:
newbgrnd "scr1a.pic" 80,0 1 0 100 22
set str1 " ... from MAXIMO's Main Menu we go to the Equipment Screen ..."
set str2 ""
say 1 @str1 @str2
getcmd
if @0=="backup" label005
labe009:
newbgrnd "2.pcx" 80,80 1 0 100 9
set str1 "I don't know the equipment number so I'll just search on the word "
set str2 "`CARTONER'."
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label006
label09a:
newbgrnd "3.pcx" 80,0 1 0 100 9
set str1 "OK, here's the Eclipse cartoner. Now let's look for the bearing "
set str2 "information on the Subassemblies and Parts screen."
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label009
label010:
newbgrnd "4.pcx" 80,200 1 0 100 9 ;
set str1 "... and it looks like we have only one block bearing per cartoner."
set str2 " "
say 1 @str1 @str2
getcmd
if @0=="backup" label09a
label11:
set str1 "Just to be sure, can you give me the Eclipse cartoner engineering "
set str2 "drawing?"
say 0 @str1 @str2
getcmd
if @0=="backup" label010
label012:
set str1 "Sure thing Ed. MAXIMO runs under Microsoft (R) WINDOWS 3.0 (TM) so we"
set str2 " can pull up engineering drawings with a couple keystrokes!"
say 1 @str1 @str2
waitkey 25
getcmd
if @0=="backup" label11
label013:
newbgrnd "5.pcx" 80,0 0 0 300 9 ;
set str1 "OK, the drawing also says just one bearing. Max, we started vibration"
set str2 " monitoring on those bearings. What are the latest readings?"
say 0 @str1 @str2
waitkey 100
getcmd
if @0=="backup" label012
label014:
newbgrnd "6.pcx" 80,260 1 0 100 9 ;
set str1 "Hmmm. MAXIMO Series 3 can jump right into a spreadsheet. Wouldn't "
set str2 "it be nice to look at a trend line of that data?"
say 1 @str1 @str2
getcmd
if @0=="backup" label013
label015:
set str1 "Good idea, Max."
set str2 " "
say 0 @str1 @str2
getcmd
if @0=="backup" label014
label016:
newbgrnd "7.pcx" 80,0 0 0 250 9 ;
set str1 "They're getting very noisy, Max. Let's schedule the retrofit "
set str2 "replacement with the new bearing ASAP!"
say 0 @str1 @str2
getcmd
if @0=="backup" label015
label017:
newbgrnd "bill1a.pcx" 80,0 1 0 100 9 ;
set str1 "OK Ed. I'll go see Sue, the maintenance scheduler, and see what she"
set str2 " can do for us."
say 1 @str1 @str2
getcmd
if @0=="backup" label016
;mouse off
if @allsolns==on linkit
link master entry_7 ;otherwise link back to master
linkit:
link sched.txt all
; SUBR ED